Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue24/tiptrix/LISTING1.PAS

Pascal/Delphi Source File | 1997-07-21 | 258 b | 11 lines

function TrectToCommaDelimStr(const r: trect): string;
begin
  result := IntToStr(r.left)+Æ,Æ+IntToSTr(r.top)+Æ,Æ+
    IntToStr(r.right)+Æ,Æ+IntToStr(r.bottom);
end;

function DblQuoteStr(const s : string): string;
begin
  result := æ"Æ+s+Æ"Æ
end;